home *** CD-ROM | disk | FTP | other *** search
- :dotest3.scr
-
- :testa
- clear 23
- cursor 2 24
- print 'In your own time, type the above words.
-
- start 3
- cursor 5 16
- test -
- cursor 5 20
- test -
- clear 23
- cursor 0 23
- if mistakes 3 = 0 print 'Well done.
- print 'You made
- if mistakes 3 > 0 mistakes 3
- if mistakes 3 = 0 print 'no
- print ' mistake
- if mistakes 3 ! 1 print 's
- print '.
- if mistakes 3 = 0 goto exit
- print ' Try again.
- script - waitspc
- clear 17 18
- clear 21 22
- goto testa
-
- :exit
- script - waitspc
- clear 17 18
- clear 21 22
-